home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol093 / trtest.bas < prev    next >
Encoding:
BASIC Source File  |  1986-12-15  |  1.9 KB  |  36 lines
  1. 10 REM POLYPHONIC MUSIC DEMONSTRATION  - STEVE MUENTER
  2. 20 CLEAR 30000
  3. 30 TRI=30000
  4. 40 BLOAD "TRI.BIN",TRI
  5. 50 DIM TUNE%(230)
  6. 60 FOR J=0 TO 229
  7. 70 READ TUNE%(J)
  8. 80 NEXT J
  9. 90 DATA 16896,-30835,8196,-31046,8196,-31143,8196,-31046,8196,-30720
  10. 100 DATA -23715,8200,-32768,-23552,-15523,8196,-24576,-16384,8196,-30469
  11. 110 DATA -23552,-15523,8196,-30720,-24576,-16384,8196,-30835,-23552,-15523
  12. 120 DATA 8196,-30720,-24576,-16384,8196,-30188,-23715,-16384,8200,-32768
  13. 130 DATA -23552,-15523,8196,-24576,-16384,8196,-30034,-23552,-15523,8196
  14. 140 DATA  -30188,-24576,-16384,8196,-30333,-23552,-15523,8196,-30188,-24576
  15. 150 DATA -16384,8196,-28902,-23715,8196,-29324,-24576,8196,-29517,-23552
  16. 160 DATA -15523,8196,-29324,-24576,-16384,8196,-28902,-15523,8196,-29324
  17. 170 DATA -24576,8196,-29517,-23552,-15523,8196,-29324,-24576,-16384,8196
  18. 180 DATA -28672,-23715,8200,-32768,-23552,-15523,8196,-24576,-16384,8196
  19. 190 DATA -29324,-23552,-15523,8196,-32768,-24576,-16384,8196,-28672,-23552
  20. 200 DATA -15523,8196,-32768,-24576,-16384,8196,-29699,-23931,8193,-29324
  21. 210 DATA 8193,-28902,8194,-32768,-24576,-16384,8196,-29324,-21680,-15417
  22. 220 DATA 8196,-32768,-24576,-16384,8196,-29699,-21996,-15417,8196,-32768
  23. 230 DATA -24576,-16384,8196,-29324,-29872,-15417,8196,-32768,-24576,-16384
  24. 240 DATA 8196,-29699,-23931,8193,-29324,8193,-28902,8194,-32768,-24576
  25. 250 DATA -16384,8196,-29324,-21680,-15417,8196,-32768,-24576,-16384,8196
  26. 260 DATA -29699,-21996,-15417,8196,-32768,-24576,-16384,8196,-29324,-21680
  27. 270 DATA -15417,8196,-32768,-24576,-16384,8196,-29699,-23931,8193,-29324
  28. 280 DATA 8193,-28902,8194,-32768,-24576,-16384,8196,-29324,-21680,-15417
  29. 290 DATA 8196,-32760,-24576,-16384,8196,-29699,-21996,-15417,8196,-32768
  30. 300 DATA -24576,-16384,8196,-29872,-22141,-14451,8196,-32768,-24576,-16384
  31. 310 DATA 8196,-30188,-23931,-16384,8208,0,0,0,0,0,0
  32. 320 CALL TRI(TUNE%(0))
  33. 330 CALL TRI(TUNE%(0))
  34. 340 BEEP
  35. 350 END
  36.